dmm_data <- read.csv('/Users/abhisheksharma/Desktop/R_MoC/data/project.csv')
require(ggplot2)
## Loading required package: ggplot2
require(ggthemes)
## Loading required package: ggthemes
## Warning: package 'ggthemes' was built under R version 3.1.3
variables <- read.csv('/Users/abhisheksharma/Desktop/R_MoC/data/variables.csv',header = TRUE)
colnames(dmm_data) <-variables[,2][1:201]
var.titles <- variables[,3][1:201]
dmm.cols <- colnames(dmm_data[2:201])
Plot the histograms of the product related data seperately
###PLOTTING DATA
for(i in dmm.cols[2:24]){
print(ggplot(dmm_data, aes(x=get(i), fill=factor(Objective))) +
theme_wsj() +
geom_histogram(position="dodge",binwidth = diff(range(dmm_data[,i]))/30) +
xlab(i) +
ylab(paste('Frequency of',i)) +
ggtitle(paste('Histogram Of',i)) +
scale_fill_hue(name="Objective",
labels=c("Non-Respondent", "Respondent"),l=50)
)
}
Theses histograms of all other types.
i <- 'gender2'
for(i in dmm.cols[25:200]){
title <- paste('Hist Of',variables$Explanation[i == variables$Var.name])
print(ggplot(dmm_data, aes(x=get(i), fill=factor(Objective))) +
theme_economist(base_size = 10) +
geom_histogram(position="dodge",binwidth = diff(range(dmm_data[,i]))/30) +
xlab(i) +
ylab(paste('Frequency of',i)) +
ggtitle(title) +
scale_fill_hue(name="Objective",
labels=c("Non-Respondent", "Respondent"),l=50)
)
}
## Warning: position_dodge requires constant width: output may be incorrect
## Warning: position_dodge requires constant width: output may be incorrect